home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 05.zip / BS1 part 5 / ANC_UTULITYS_16.adf / arclist / asm2.arc / ten4.S < prev   
Text File  |  1988-09-21  |  9KB  |  385 lines
  1.  
  2. beg:                    ; As usual...
  3. movem.l    d0/d1/d2/d3/d4/d5/d6/d7/a0/a1/a2/a3/a4/a5/a6,-(a7)
  4. move.l    a7,InitialSP            ; Just to be on the safe side
  5. bsr    SwitchOSout            ; Switch out Operating System
  6. bsr    Initchips            ; Setup Custom chip pointers
  7. bsr    Initint                ; Setup Interrupts.
  8. bsr    InitOther            ; Init the other stuff
  9. bsr    Wait                ; Handle input stuff
  10. bsr    Resetint            ; Reset interrupts
  11. bsr    Resetchips            ; Reset custom chips
  12. bsr    SwitchOSin            ; Switch in Operating System.
  13. move.l    InitialSP,a7            ; Restore Stack Frame Pointer
  14. movem.l    (a7)+,a0/a1/a2/a3/a4/a5/a6/d0/d1/d2/d3/d4/d5/d6/d7
  15. rts
  16.  
  17. InitialSP:dc.l 0            ; Hold initial SP
  18.  
  19. SwitchOSout:                ; Switch out disturbing stuff.
  20. move.l    $4,a6                ; System Base
  21. lea    gfxlib,a1
  22. clr.l    d0
  23. jsr    -552(a6)            ; _LVOOpenLibrary
  24. move.l    d0,gfxbase            ; Save Graphics_lib base
  25. jsr    -$84(a6)            ; _LVOForbid
  26. jsr    -$96(a6)            ; _LVOSuperState
  27. move.l    d0,systack            ; System stack
  28. rts
  29.  
  30. systack:dc.l 0
  31. gfxlib:dc "graphics.library",0,0
  32. gfxbase:dc.l 0
  33.  
  34. Initchips:                ; Initialize custom chips
  35. move.w    $dff01c,intesave
  36. move.w    $dff01e,intrsave
  37. move.w    $dff002,dmasave
  38. move.w    $dff010,adksave
  39. move.w    #%0111111111111111,$dff096    ; DMACONW
  40. move.w    #%1000001111100000,$dff096    ; Disable disk access.
  41. move.w    #%0111111111111111,$dff09a    ; INTENA
  42. move.w    #%1100000000110100,$dff09a    ; Enable desired IRQ's
  43. move.l    #copl,$dff080
  44. rts
  45.  
  46. intesave:dc.w    0
  47. intrsave:dc.w    0
  48. dmasave:dc.w    0
  49. adksave:dc.w    0
  50.  
  51. InitInt:                ; Initialize interrupts
  52. move.l    $6c,level3save            ; Save level 3 vector
  53. move.l    $6c,af3+2
  54. move.l    $68,level2save            ; Save level 2 vector
  55. move.l    $68,af2+2
  56. move.l    #level2irq,$68            ; Set new interrupt vector 2
  57. move.l    #level3irq,$6c            ; Set new interrupt vector 3
  58. rts
  59.  
  60. level2save:dc.l 0
  61. level3save:dc.l 0
  62.  
  63. ResetInt:                ; Reset Interrupts
  64. move.l    level3save,$6c            ; Restore level 3 vector
  65. move.l    level2save,$68            ; Restore level 2 vector
  66. rts
  67.  
  68. Resetchips:                ; Reset custom chips
  69. move.w    intesave,d7
  70. bset    #$f,d7
  71. move.w    d7,$dff09a            ; Reset Interrupts
  72. move.w    intrsave,d7
  73. bset    #$f,d7
  74. move.w    d7,$dff09c            ; Reset interrupt request
  75. move.w    dmasave,d7
  76. bset    #$f,d7
  77. move.w    d7,$dff096            ; Reset DMAConw
  78. move.w    adksave,d7
  79. bset    #$f,d7
  80. move.w    d7,$dff09e            ; Reset ADK
  81. move.l    gfxbase,a0
  82. move.l    $26(a0),$dff080
  83. rts
  84.  
  85. SwitchOSIn:                ; Allow OS to operate again.
  86. move.l    4,a6                ; System Base
  87. jsr    -$8a(a6)            ; _LVOPermit
  88. move.l    systack,d0            ; Systemstack
  89. jsr    -$9c(a6)            ; _LVOUserState
  90. rts
  91.  
  92. level2irq:
  93. af2:jmp 0
  94.  
  95. level3irq:
  96. movem.l    d0/d1/d2/d3/d4/d5/d6/d7/a0/a1/a2/a3/a4/a5/a6,-(a7)
  97. ;move.w    #$000f,$dff180
  98. movem.l    (a7)+,d0/d1/d2/d3/d4/d5/d6/d7/a0/a1/a2/a3/a4/a5/a6
  99. af3:jmp 0
  100.  
  101. rotdly:dc.w 250
  102. rotdirection:dc.w 0
  103. rotate:dc.w 0
  104.  
  105. dorotation:
  106. tst.w    rotate
  107. bne.s    rotatin
  108.  
  109. subq.w    #1,rotdly
  110. bne.s    norot
  111.  
  112. move.w    #150,rotate
  113.  
  114. rotatin:
  115. subq.w    #1,rotate
  116. beq.s    norot3
  117.  
  118. tst.w    rotdirection
  119. bne.s    other
  120.  
  121. lea    dire,a0
  122. moveq    #99,d6
  123. slp:
  124. move.w    (a0),d0
  125. addq.w    #2,d0
  126. cmpi.w    #720,d0
  127. blt.s    nomore
  128. subi.w    #720,d0
  129. nomore:
  130. move.w    d0,(a0)+
  131. dbf    d6,slp
  132. bra.s    norot2
  133.  
  134. other:
  135. lea    dire,a0
  136. moveq    #99,d6
  137. slp2:
  138. move.w    (a0),d0
  139. subq.w    #2,d0
  140. cmpi.w    #0,d0
  141. bge.s    nomore2
  142. addi.w    #720,d0
  143. nomore2:
  144. move.w    d0,(a0)+
  145. dbf    d6,slp2
  146. bra.s    norot2
  147.  
  148. norot3:
  149. eor.w    #$ffff,rotdirection
  150. move.w    #250,rotdly
  151. norot2:
  152.  
  153. norot:
  154. rts
  155.  
  156. initother:
  157. lea    $60000,a0
  158. move.w    #$2bff,d0
  159. clp:
  160. clr.l    (a0)+
  161. dbf    d0,clp
  162. rts
  163.  
  164. Wait:                    ; Wait.
  165. bsr    dostars
  166. bsr    dorotation
  167. btst    #6,$bfe001
  168. bne.s    wait
  169. rts
  170.  
  171. dostars:
  172. moveq    #0,d3
  173. moveq    #99,d2
  174. lea    $60000,a0            ; Bpl 1
  175. lea    $62c00,a1            ; Bpl 2
  176. lea    sine,a6                ; Sine table
  177. lea    posx,a5                ; X pos table
  178. lea    posy,a4                ; Y pos table
  179. lea    dire,a3                ; Direction table
  180.  
  181. thelot:
  182. moveq    #0,d0
  183. move.w    (a5),d0                ; Xpos * 100
  184. move.w    (a4),d1                ; Ypos * 100
  185. move.w    (a3)+,d7            ; Direction (angle * 2)
  186. move.w    d7,d6
  187. add.w    #180,d6                ; Y direction
  188. cmpi.w    #720,d6
  189. blt.s    notnow
  190. subi.w    #720,d6                ; cos(360)=cos(0)
  191. notnow:
  192.  
  193. movem.l    d0/d1/d3,-(a7)
  194. divu    #100,d0
  195. divu    #100,d1
  196. mulu    #44,d1
  197. move.w    d0,d3
  198. asr.w    #3,d3
  199. not.b    d0                ; DELETE OLD STAR
  200. andi.w    #7,d0
  201. add.l    d3,d1
  202. bclr    d0,0(a0,d1)
  203. bclr    d0,0(a1,d1)
  204. lea    $2c00(a1),a1
  205. bclr    d0,0(a1,d1)
  206. lea    -$2c00(a1),a1
  207. movem.l    (a7)+,d0/d1/d3
  208.  
  209. move.l    d7,-(a7)
  210. move.w    (a6,d7.w),d5            ; Get sine value
  211. move.w    (a6,d6.w),d4            ; Get cosine value
  212. move.w    198(a3),d7
  213. muls    d7,d4
  214. muls    d7,d5                ; Star gets faster nearer edge
  215. divs    #40,d4
  216. divs    #40,d5
  217. move.l    (a7)+,d7
  218.  
  219. add.w    d5,d0                ; Xpos
  220. add.w    d4,d1                ; Ypos
  221. move.w    d0,(a5)+            ; Xpos save
  222. move.w    d1,(a4)+            ; YPos save
  223. divu    #100,d0                ; Xpos = Xpos/100 = Xpos
  224. divu    #100,d1                ; Ypos = Ypos/100 = Ypos
  225. cmpi.w    #352,d0
  226. bge.s    res
  227. cmpi.w    #0,d0
  228. blt.s    res
  229. cmpi.w    #256,d1
  230. bge.s    res
  231. cmpi.w    #0,d1
  232. bge.s    nores
  233. res:
  234. move.w    #176,d0
  235. move.w    #17600,-2(a5)            ; Save the pos'n
  236. move.w    #127,d1
  237. move.w    #12700,-2(a4)
  238. clr.w    198(a3)                ; Clear nummoves
  239. nores:
  240. addq.w    #1,198(a3)
  241.                     ; SETDOT
  242. move.l    d7,-(a7)
  243. mulu    #44,d1
  244. move.w    d0,d3
  245. asr.w    #3,d3                ; Divide by 8
  246. add.l    d3,d1
  247. not.b    d0
  248. andi.w    #7,d0
  249.  
  250. move.w    198(a3),d7
  251. asr.w    #4,d7
  252. addq.b    #1,d7
  253. cmpi.b    #7,d7
  254. ble.s    nofix
  255. moveq    #7,d7
  256. nofix:
  257. asr.b    #1,d7
  258. bcc.s    nopl1
  259. bset    d0,0(a0,d1)            ; Set point
  260. nopl1:
  261. asr.b    #1,d7
  262. bcc.s    nopl2
  263. bset    d0,0(a1,d1)
  264. nopl2:
  265. asr.b    #1,d7
  266. bcc.s    nopl3
  267. lea    $2c00(a1),a1
  268. bset    d0,(a1,d1)
  269. lea    -$2c00(a1),a1
  270. nopl3:
  271.  
  272. move.l    (a7)+,d7
  273.  
  274. dbf    d2,thelot
  275. rts
  276.  
  277. posx:
  278. dc.w    11600,01600,22600,03600,14600,12600,09600,29600,08600,01600
  279. dc.w    17600
  280. dc.w    27600,13600,19600,08600,05600,04600,11600,21600,31600,34600
  281. dc.w    17600
  282. dc.w    17600,15600,17600,15400,24300,30600,35000,11700,02500,17600
  283. dc.w    17600
  284. dc.w    17600,07600,03600,14600,12100,12600,13600,19600,11600,10600
  285. dc.w    17600
  286. dc.w    27100,17600,17600,26600,24600,29100,17600,31600,17600,17600
  287. dc.w    11600
  288. dc.w    19600,17600,22600,17600,27600,12600,11600,19600,13600,11200
  289. dc.w    24600
  290. dc.w    09600,17500,22100,17600,27600,17600,17600,12100,11900,22900
  291. dc.w    12600
  292. dc.w    09600,27600,22600,17600,27600,17600,15600,11600,19600,17600
  293. dc.w    24600
  294. dc.w    19600,17600,22600,15600,27600,17600,07600,09600,02600,31600
  295. dc.w    04600
  296. dc.w    19600,17600,22600,17600,27600,17600,15600,18500,17600,01600
  297. dc.w    14600
  298.  
  299. posy:
  300. dc.w    12700,12700,12700,12700,12700,12700,12700,12700,12700,12700
  301. dc.w    12700
  302. dc.w    12700,12700,12700,12700,12700,12700,12700,12700,12700,12700
  303. dc.w    12700
  304. dc.w    12700,02700,13700,14700,15700,16700,17700,18700,19700,12700
  305. dc.w    12700
  306. dc.w    02700,10700,19700,12700,12700,14700,12700,15400,12700,12700
  307. dc.w    12700
  308. dc.w    22700,16700,10700,02700,03700,07700,17700,12700,12700,12700
  309. dc.w    14700
  310. dc.w    19700,12700,16700,12700,12700,12700,12700,12700,12700,12700
  311. dc.w    18700
  312. dc.w    10700,16700,12700,12700,12700,12700,12700,12700,12700,12700
  313. dc.w    12700
  314. dc.w    18700,12700,12700,12700,12700,12700,12700,12700,12700,12700
  315. dc.w    12700
  316. dc.w    16700,17700,12700,12700,12700,12700,12700,12700,12700,12700
  317. dc.w    12700
  318. dc.w    14700,22700,19700,21700,20700,12700,12700,12700,12700,12700
  319. dc.w    12700
  320.  
  321. dire:
  322. dc.w    000,090,180,270,360,450,540,630,044,134
  323. dc.w    006,096,186,276,366,456,546,636,050,140
  324. dc.w    012,102,192,282,372,462,552,642,056,146
  325. dc.w    018,108,198,288,378,468,558,648,062,152
  326. dc.w    024,114,204,294,384,474,564,654,068,156
  327. dc.w    030,120,210,300,390,480,570,660,074,162
  328. dc.w    124,114,204,306,396,474,564,654,268,156
  329. dc.w    130,120,210,312,402,440,570,660,074,162
  330. dc.w    124,114,204,318,408,474,564,654,168,156
  331. dc.w    130,120,210,324,414,680,470,260,474,262
  332. nummoves:
  333. blk.w    100,0
  334.  
  335. copl:
  336. dc.w $0100,$3200
  337. dc.w $00e0,$0006,$00e2,$0000
  338. dc.w $00e4,$0006,$00e6,$2c00
  339. dc.w $00e8,$0006,$00ea,$5800
  340. dc.w $0102,$0000,$0104,$0030,$008e,$2480
  341. dc.w $0090,$24e0,$0092,$0030,$0094,$00d8
  342. dc.w $010a,$0000,$0108,$0000,$0120,$0000
  343. dc.w $0122,$0000
  344. dc.w $0182,$0111,$0184,$0222,$0186,$0444,$0188,$0777
  345. dc.w $018a,$0aaa,$018c,$0bbb,$018e,$0ccc
  346. dc.w $0124,$0000,$0126,$0000,$0128,$0000,$012a,$0000
  347. dc.w $012c,$0000,$012e,$0000,$0130,$0000,$0132,$0000
  348. dc.w $0134,$0000,$0136,$0000,$0138,$0000,$013a,$0000
  349. dc.w $013c,$0000,$013e,$0000
  350. dc.w $0180,$0000
  351. dc.w $ffff,$fffe
  352.  
  353. sine:
  354. dc.w  0, 2, 6, 10, 12, 16,20, 24, 26, 30, 34, 38
  355. dc.w  40, 44, 48, 50, 54, 58,60, 64, 68, 70, 74, 78
  356. dc.w  80, 84, 86, 90, 92, 96,100, 102, 104, 108, 110, 114
  357. dc.w  116, 120, 122, 124, 128, 130, 132, 136, 138, 140, 142, 146
  358. dc.w  148, 150, 152, 154, 156, 158, 160, 162, 164, 166, 168, 170
  359. dc.w  172, 174, 176, 178, 178, 180, 182, 184, 184, 186, 186, 188
  360. dc.w  190, 190, 192, 192, 194, 194, 194, 196, 196, 196, 198, 198
  361. dc.w  198, 198, 198, 198, 198, 198, 200, 198, 198, 198, 198, 198
  362. dc.w  198, 198, 198, 196, 196, 196, 194, 194, 194, 192, 192, 190
  363. dc.w  190, 188, 186, 186, 184, 184, 182, 180, 178, 178, 176, 174
  364. dc.w  172, 170, 168, 166, 164, 162, 160, 158, 156, 154, 152, 150
  365. dc.w  148, 146, 142, 140, 138, 136, 132, 130, 128, 124, 122, 120
  366. dc.w  116, 114, 110, 108, 104, 102, 98, 96, 92, 90, 86, 84
  367. dc.w  80, 78, 74, 70, 68, 64, 60, 58, 54, 50, 48, 44
  368. dc.w  40, 38, 34, 30, 26, 24, 20, 16, 12, 10, 6, 2
  369. dc.w -2,-4,-8,-12,-14,-18,-22,-26,-28,-32,-36,-40
  370. dc.w -42,-46,-50,-52,-56,-60,-62,-66,-70,-72,-76,-80
  371. dc.w -82,-86,-88,-92,-94,-98,-102,-104,-106,-110,-112,-116
  372. dc.w -118,-122,-124,-126,-130,-132,-134,-138,-140,-142,-144,-148
  373. dc.w -150,-152,-154,-156,-158,-160,-162,-164,-166,-168,-170,-172
  374. dc.w -174,-176,-178,-180,-180,-182,-184,-186,-186,-188,-188,-190
  375. dc.w -192,-192,-194,-194,-196,-196,-196,-198,-198,-198,-200,-200
  376. dc.w -200,-200,-200,-200,-200,-200,-200,-200,-200,-200,-200,-200
  377. dc.w -200,-200,-200,-198,-198,-198,-196,-196,-196,-194,-194,-192
  378. dc.w -192,-190,-188,-188,-186,-186,-184,-182,-180,-180,-178,-176
  379. dc.w -174,-172,-170,-168,-166,-164,-162,-160,-158,-156,-154,-152
  380. dc.w -150,-148,-144,-142,-140,-138,-134,-132,-130,-126,-124,-122
  381. dc.w -118,-116,-112,-110,-106,-104,-100,-98,-94,-92,-88,-86
  382. dc.w -82,-80,-76,-72,-70,-66,-62,-60,-56,-52,-50,-46
  383. dc.w -42,-40,-36,-32,-28,-26,-22,-18,-14,-12,-8,-4
  384. end:
  385.